home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / OutlinedColumnSeriesTest.wr_ / OutlinedColumnSeriesTest.wr
Text File  |  1998-10-22  |  2KB  |  82 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Red [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color2"
  4.  
  5. EXTERNPROTO em7_OutlinedColumnSeries [
  6.     field MFNode appearance
  7.     field SFColor wireColor
  8.     field SFInt32 xDimension
  9.     field SFFloat xSpacing
  10.     field SFFloat width
  11.     field SFFloat depth
  12.     field MFFloat height
  13.     field MFFloat floor
  14.     eventIn MFNode set_appearance
  15.     eventIn SFColor set_wireColor
  16.     eventIn SFInt32 set_xDimension
  17.     eventIn SFFloat set_xSpacing
  18.     eventIn SFFloat set_width
  19.     eventIn SFFloat set_depth
  20.     eventIn MFFloat set_height
  21.     eventIn MFFloat set_floor
  22. ] "..\VR_GRAPH.wrl#em7_OutlinedColumnSeries"
  23.  
  24. EXTERNPROTO em7_MultiFloatInterval [
  25.     field MFFloat value
  26.     field SFInt32 blockSize
  27.     field SFInt32 index
  28.     eventIn SFInt32 set_index
  29.     eventOut SFInt32 index_changed
  30.     eventOut MFFloat value_changed
  31. ] "..\VR_GRAPH.wrl#em7_MultiFloatInterval"
  32.  
  33. EXTERNPROTO em7_Slider [
  34.     field SFFloat height
  35.     field SFFloat radius
  36.     field SFInt32 min
  37.     field SFInt32 max
  38.     field SFInt32 value
  39.     eventIn SFInt32 set_min
  40.     eventIn SFInt32 set_max
  41.     eventIn SFInt32 set_value
  42.     eventOut SFInt32 value_changed
  43. ] "..\VR_UI.wrl#em7_Slider"
  44.  
  45. DEF COL em7_OutlinedColumnSeries {
  46.     appearance [
  47.         Red {}
  48.         Red { transparency 0.3 }
  49.         Red { transparency 0.6 }
  50.         Red { transparency 0.6 }
  51.         Red { transparency 0.3 }
  52.         Red {}
  53.     ]
  54.     wireColor 0.3 0.3 0.3
  55.     xDimension 6
  56.     xSpacing 1
  57.     width 0.4
  58.     depth 0.7
  59. }
  60.  
  61. Transform {
  62.     translation 0 -0.5 1.5
  63.     rotation 0 0 1 -1.5708
  64.     children [
  65.         DEF SLIDER em7_Slider {
  66.             height 5
  67.             min 0
  68.             max 15
  69.             value 0
  70.         }
  71.     ]
  72. }
  73.  
  74. DEF MULTI_FLOAT em7_MultiFloatInterval {
  75.     value [1.1, 2.2, -1.55, 0.4, 1.1, 1.2, -0.8, 0.2, 1.3, 1.5, -2.5, 2.8, 3.4, 3.6, 2.7, -0.5, 0.8, 1.2, -1.1, 0.15, 0.4, 1, 1.2, -1, 0.8, 0.3, 0.5, 0.5]
  76.     blockSize 8
  77.     index 0
  78. }
  79.  
  80. ROUTE SLIDER.value_changed TO MULTI_FLOAT.set_index
  81. ROUTE MULTI_FLOAT.value_changed TO COL.set_height
  82.